Iron Maiden - Maiden Hell!/Iron Maiden - Maiden Hell! Promotional CD-ROM.iso/mac/promo.dxr/scripts_1_movie scripts = .ls

Text File | 1998-09-16 | 6.8 KB | 268 lines

on startMovie
  global gSectionList, gWhichAlbumNumber, gCDtrackplaying, gTrackGuessed, gWhereWeveGone, gOriginalSoundLevel, gOriginalColourDepth
  set the sound of member "thunderMOV" to 0
  set gOriginalSoundLevel to the soundLevel
  set the soundLevel to 4
  set gOriginalColourDepth to the colorDepth
  if the colorDepth < 16 then
    set the colorDepth to 16
  end if
  set gWhichAlbumNumber to 12
  set gSectionList to ["video", "album", "band", "tour", "audio", "competition", "catalogue", "eddie"]
  set the fileName of member "vid1" to "@:media:fear.mov"
  set the fileName of member "thunderMOV" to "@:media:thunder.mov"
  set the fileName of member "bomb" to "@:media:Bomb2.mov"
  set the fileName of member "morph" to "@:media:Morph.mov"
  set gCDtrackplaying to 1
  set gTrackGuessed to 1
  set gWhereWeveGone to "menu"
  set the exitLock to 1
  set the keyDownScript to "checkExit"
  allSeeing()
end

on checkExit
  if ((the commandDown and ((the key = ".") or (the key = "q"))) or (charToNum(the key) = 27)) and (the exitLock = 1) then
    allSeeing()
    go("quitThisEcd")
  end if
end

on stopMovie
  global gCD, gOriginalSoundLevel, gOriginalColourDepth
  if gCD <> VOID then
    shutDown(gCD)
    set gCD to 0
  end if
  set the soundLevel to gOriginalSoundLevel
  set the colorDepth to gOriginalColourDepth
end

on checkIfCDPlayerOpen
  global gCDtrackplaying, gCD
  set gCD to new(xtra("CDPro"))
  if NumTracks(gCD) < 1 then
    go("quitCDplayer")
  end if
  if gCD <> VOID then
    shutDown(gCD)
    set gCD to 0
  end if
end

on newfilesFolder
  set fileList to []
  repeat with i = 1 to the maxinteger
    set n to getNthFileNameInFolder("@:newfiles", i)
    if n = EMPTY then
      exit repeat
    end if
    append(fileList, n)
  end repeat
  return fileList
end

on sortOutTheImageSizes whichBitOfScreen
  global someVariable
  set someVariable to whichBitOfScreen
  repeat with y = 8 down to 1
    set the visible of sprite (y + 10) to 1
    set the width of sprite (y + 10) to the width of member the member of sprite (y + 10) * ((the mouseV - 240) / 25.0) / (9 - y)
    set the height of sprite (y + 10) to the height of member the member of sprite (y + 10) * ((the mouseV - 240) / 25.0) / (9 - y)
  end repeat
  repeat with y = 8 down to 9 - whichBitOfScreen
    set the visible of sprite (y + 10) to 0
  end repeat
  updateStage()
end

on openUpWindow theMovie, thisRect
  global newWindow, RthereNEwindows
  set newWindow to window theMovie
  set RthereNEwindows to 1
  set the rect of newWindow to value(thisRect)
  set the windowType of newWindow to 16
  cursor(0)
  open(newWindow)
  set the rect of newWindow to value(thisRect)
end

on doVideoPosn
  global gVideoDuration
  set whereNow to the left of sprite 23 + (float(float(the movieTime of sprite 7) / gVideoDuration) * the width of sprite 23)
  set the locH of sprite 25 to whereNow
end

on doBabyVideo
  set vidMember to the member of sprite 7
  set vidTime to the mtime of sprite(7)
  go(marker(0))
  set the visible of sprite 7 to 0
  set the locH of sprite 7 to -800
  updateStage()
  go(the frame + 1)
  set the member of sprite 7 to vidMember
  updateStage()
  set the member of sprite 41 to "vidSize0"
  set the width of sprite 7 to 320
  set the height of sprite 7 to 240
  set the loc of sprite 7 to point(231, 249)
  set the mtime of sprite(7) to vidTime
  set the visible of sprite 7 to 1
  if the height of member the member of sprite 11 > the height of sprite 3 then
    set the visible of sprite 4 to 1
    set the visible of sprite 5 to 1
  end if
end

on doMummyVideo
  set vidMember to the member of sprite 7
  set vidTime to the mtime of sprite(7)
  go(marker(0))
  set the visible of sprite 7 to 0
  set the locH of sprite 7 to -800
  set the visible of sprite 4 to 0
  set the visible of sprite 5 to 0
  updateStage()
  go(the frame + 1)
  set the member of sprite 7 to vidMember
  updateStage()
  set the member of sprite 41 to "vidSize1"
  set the width of sprite 7 to 640
  set the height of sprite 7 to 480
  set the loc of sprite 7 to point(397, 265)
  set the mtime of sprite(7) to vidTime
  set the visible of sprite 7 to 1
end

on alUpdate
end

on allSeeing
  repeat with y = 1 to 65
    set the visible of sprite y to 1
  end repeat
end

on cleanUpMenuSection
end

on setUpVideoSection
  global gVideoDuration, gVideoSize
  sound stop 1
  set the visible of sprite 7 to 1
  set gVideoDuration to the duration of member "vid1"
  set gVideoSize to 0
end

on CleanUpVideoSection
  set the visible of sprite 7 to 0
  updateStage()
  go(the frame + 1)
  set the visible of sprite 7 to 1
end

on setUpAlbumSection
  set the visible of sprite 7 to 1
  set the constraint of sprite 25 to 23
end

on CleanUpAlbumSection
end

on setUpBandSection
  global gBandPictureNumber
  set the visible of sprite 7 to 1
  set gBandPictureNumber to 1
  startTimer()
  set the visible of sprite 4 to 1
  set the visible of sprite 5 to 1
end

on CleanUpBandSection
end

on setUpTourSection
  global gTourPictureNumber
  set the visible of sprite 7 to 1
  set gTourPictureNumber to 1
  startTimer()
  set the visible of sprite 4 to 1
  set the visible of sprite 5 to 1
end

on CleanUpTourSection
end

on setUpAudioSection
  global gCDtrackplaying, gCD, gHowManyTracksOnAlbum, gTempSoundlevel
  set the visible of sprite 7 to 1
  set gCD to new(xtra("CDPro"))
  set gHowManyTracksOnAlbum to NumTracks(gCD)
  set gCDtrackplaying to 1
  set the member of sprite (gCDtrackplaying + 5) to "audiosong" & string(gCDtrackplaying) & "r"
  set the constraint of sprite 28 to 27
  SetVolume(gCD, 80)
  set gTempSoundlevel to the soundLevel
end

on CleanUpAudioSection
  global gCDtrackplaying, gCD, gHowManyTracksOnAlbum, gTempSoundlevel
  stop(gCD)
  repeat with trakk = 5 to 5 + gHowManyTracksOnAlbum
    puppetSprite(trakk, 0)
  end repeat
  if gCD <> VOID then
    shutDown(gCD)
    set gCD to 0
  end if
  set the soundLevel to gTempSoundlevel
end

on setUpcompetitionSection
  puppetSprite(1, 1)
  set the visible of sprite 7 to 1
end

on CleanUpCompetitionSection
  sound stop 1
  sound stop 2
end

on setUpCatalogueSection
  set the visible of sprite 7 to 1
  repeat with x = 1 to 11
    preloadMember("catspin" & string(x))
  end repeat
  repeat with x = 1 to 11
    preloadMember("subspin" & string(x))
  end repeat
end

on cleanUpCatalogueSection
  set the visible of sprite 7 to 0
  updateStage()
  if the frameLabel = "cat" then
    go(the frame + 1)
  end if
  set the visible of sprite 7 to 1
  sound stop 1
  repeat with x = 1 to 11
    unloadMember("catspin" & string(x))
  end repeat
  repeat with x = 1 to 11
    unloadMember("subspin" & string(x))
  end repeat
end

on setUpEddieSection
  global gCD, gSongWereGuessing, gHowManyTracksOnAlbum
  set gHowManyTracksOnAlbum to 12
  set gSongWereGuessing to random(gHowManyTracksOnAlbum)
  set the visible of sprite 7 to 1
end

on cleanUpEddieSection
  global gCD
end